26565 J = T *100:B$ = STR$( INT(J +.01)): IF LEN(B$) = 1 THEN B$ = "0" +B$
26568 TL$ = A$ +"." + RIGHT$(B$,2)
26569 H = 56 - LEN(B$) +2
26570 HTAB 22: PRINT "TOTAL";
26577 IF TL <0 THEN HTAB H -1: PRINT "-";TL$: GOTO 26585
26580 HTAB H: PRINT TL$
26585 IF F = 1 THEN F = 0: IF PF = 1 THEN 31000
26590 IF PF = 1 THEN PRINT D$;"PR#0":PF = 0: IF BF = 1 THEN PF = 1
26600 TL = 0:T = 0
26610 HTAB 79: GET X$
26620 POKE 34,0
26630 IF BF < >1 THEN 4000
26640 IF BF = 1 THEN BF = 0: POKE 216,0: PRINT D$;"CHAIN /RAM/BUD,@18000"
30000 REM BY MONTH
30010 HOME
30020 HTAB 19: VTAB 2: PRINT "PLEASE ENTER MONTH TO SORT AS A 2 DIGIT NUMBER"
30030 HTAB 40: VTAB 4: INPUT "";MO$
30040 HTAB 21: VTAB 10: PRINT "DISPLAY DATA ON <S>CREEN OR <P>RINTER?"
30050 HTAB 40: VTAB 12: GET P$
30060 IF P$ = "S" OR P$ = "s" THEN PF = 0: GOTO 30090
30070 IF P$ = "P" OR P$ = "p" THEN PF = 1: GOTO 30090
30080 IF P$ < >"p" THEN 30050
30090 HOME
30095 IF PF = 1 THEN PRINT D$;"PR#1"
30100 HTAB 25: VTAB 1: PRINT "------TRANSACTIONS BY MONTH------"
30110 F = 1:V = 5
30120 GOTO 26040
30500 F = 0: GOTO 4000
31000 REM PRINT ACCOUNT TOTAL
31010 PF = 0: PRINT D$;"PR#0"
31020 TL = 0:T = 0
31030 POKE 34,0
31040 HOME
31050 HTAB 20: VTAB 3
31060 PRINT "DO YOU WISH TO PRINT CURRENT ACCOUNT TOTAL?"
31070 HTAB 40: VTAB 5
31080 GET X$
31090 IF X$ = "Y" OR X$ = "y" THEN 31200
31100 IF X$ = "N" OR X$ = "n" THEN 4000
31110 GOTO 31040
31200 PRINT D$;"PR#1"
31210 PRINT : PRINT : HTAB 15
31220 PRINT "TOTAL ACCOUNT BALANCE ON ";BDT$;" IS $ ";BL$
31230 PRINT D$;"PR#0"
31240 GOTO 4000
40000 REM TO MAIN MENU
40010 POKE 216,0
40020 PRINT D$;"CHAIN /RAM/CW,@4005"
41000 REM TO CURRENT TRANSACTION LIST
41010 POKE 216,0
41020 PRINT D$;"CHAIN /RAM/LP,@20000"
42000 REM ENTRIES TO CHECKWRITER
42010 POKE 216,0
42020 PRINT D$;"CHAIN /RAM/CW,@5005"
43000 REM QUIT
43010 POKE 216,0
43020 PRINT D$;"CHAIN /RAM/CW,@58000"
45000 REM CALCULATOR
45010 POKE 216,0
45020 PRINT D$;"CHAIN /RAM/CALC"
50000 REM ONERR ROUTINE
50010 PRINT D$;"CLOSE"
50020 HOME
50030 HTAB 29: VTAB 8
50040 PRINT "ERROR #"; PEEK(222);" IN LINE "; PEEK(218) + PEEK(219) *256
50050 IF PEEK(222) = 5 THEN 50100
50060 GOTO 50200
50100 HTAB 18: VTAB 11
50110 PRINT "YOU HAVE INSUFFICIENT DATA FOR THIS REPORT"
50200 HTAB 26: VTAB 14
50210 PRINT "PRESS <ANY KEY> TO CONTINUE"
50220 HTAB 40: VTAB 16
50230 GET X$
50235 POKE 34,0
50240 CALL -3288: GOTO 4000
55000 REM EDIT A TRANSACTION
55010 HOME
55020 HTAB 26: VTAB 2: PRINT "ENTER # OF TRANSACTION TO REDO"
55030 HTAB 40: VTAB 4: INPUT "";TN
55040 IF TN > = KFTN% THEN CALL -958: HTAB 20: VTAB 10: PRINT "TRANSACTION # ";TN;" IS NOT AN OLD TRANSACTION.": HTAB 1: VTAB 11: PRINT "CURRENT TRANSACTIONS CAN BE EDITED AT ENTRIES TO CHECKWRITER FROM THE MAIN MENU.": GOTO 55060
55050 GOTO 55080
55060 HTAB 27: VTAB 12: PRINT "PRESS <ANY KEY> TO CONTINUE": HTAB 40: VTAB 14: GET X$
55070 GOTO 4000
55080 PRINT D$;"OPEN /RAM/MAIN.DATA,L$96"
55090 PRINT D$;"READ /RAM/MAIN.DATA,R";TN
55100 INPUT TN%
55110 INPUT DT$
55120 INPUT CN$
55130 INPUT AMT$
55140 OMT$ = AMT$
55150 GOSUB 63000: LET PY$ = IN$
55155 INPUT R$
55160 INPUT CTG$
55170 GOSUB 63000: LET MEM$ = IN$
55180 HTAB 25: VTAB 7: PRINT "-----EDIT AN OLD TRANSACTION-----"
55440 HTAB 8: VTAB 15: PRINT "WOULD YOU LIKE TO EDIT: <D>ATE, <A>MOUNT, <P>AYEE, <G>CAT, OR <M>EM,": HTAB 25: PRINT "<V>OID A CHECK OR <ESC> TO EXIT": HTAB 40: VTAB 17: GET X$
55450 IF X$ = CHR$(27) THEN 4000
55454 IF X$ = "V" OR X$ = "v" THEN 55800
55456 IF X$ = "G" OR X$ = "g" THEN 55900
55458 IF X$ = "D" OR X$ = "d" OR X$ = "A" OR X$ = "a" OR X$ = "P" OR X$ = "p" OR X$ = "M" OR X$ = "m" THEN 55460
55459 GOTO 55440
55460 VTAB 14: CALL -958
55470 HTAB 29: VTAB 15: PRINT "ENTER NEW DATA, PRESS<RTN>"
55480 HTAB 37: VTAB 17: GOSUB 63000: LET Y$ = IN$
55490 IF X$ = "D" OR X$ = "d" THEN DT$ = Y$
55510 IF X$ = "A" OR X$ = "a" THEN AMT$ = Y$:FL = 1: IF CN$ = "*" THEN Y = VAL(Y$) * -1:AMT$ = STR$(Y)
55520 IF X$ = "P" OR X$ = "p" THEN PY$ = Y$
55535 IF X$ = "M" OR X$ = "m" THEN MEM$ = Y$
55540 HOME
55550 F = 1: GOSUB 55180:F = 0: IF R$ = "R" THEN 55700
55570 HTAB 21: VTAB 16: PRINT "PRESS <`> TO ENTER THIS DATA OR <ANY KEY> TO EXIT"
55580 HTAB 40: VTAB 20: GET X$
55590 IF X$ = "`" OR X$ = "~" THEN VTAB 14: CALL -958: GOTO 56000
55600 GOTO 4000
55700 IF FL < >1 THEN 55570
55710 HTAB 8: VTAB 16: PRINT "THIS TRANSACTION HAS BEEN RECONCILED. YOU CANNOT CHANGE THE AMOUNT.":FL = 0: HTAB 40: VTAB 18: GET X$: GOTO 4000